From: Richard M. Stallman Date: Tue, 10 Dec 2002 21:49:24 +0000 (+0000) Subject: (bashdb): Prompt now included parenthesis for subshell X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29259 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1b89907573d7c629d21917ff9357a2ee05b4366a;p=emacs.git (bashdb): Prompt now included parenthesis for subshell levels. Fix erroneous print expression command, and fix typos. (perldb): Undo previous change in prompt regexp. --- diff --git a/lisp/gud.el b/lisp/gud.el index c24ccb02741..e3c2c9f41bf 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1249,7 +1249,7 @@ and source-file directory for your debugger." ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") (gud-def gud-print "%e" "\C-p" "Evaluate perl expression at point.") - (setq comint-prompt-regexp "^ DB<+(*[0-9])*+>+ ") + (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") (setq paragraph-start comint-prompt-regexp) (run-hooks 'perldb-mode-hook)) @@ -2123,12 +2123,12 @@ and source-file directory for your debugger." (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") - (gud-def gud-print "pe %e" "\C-p" "Evaluate bash expression at point.") + (gud-def gud-print "x %e" "\C-p" "Evaluate BASH expression at point.") ;; Is this right? - (gud-def gud-statement "eval %e" "\C-e" "Execute Python statement at point.") + (gud-def gud-statement "eval %e" "\C-e" "Execute BASH statement at point.") - (setq comint-prompt-regexp "^bashdb<+[0-9]*>+ ") + (setq comint-prompt-regexp "^bashdb<+(*[0-9]+)*>+ ") (setq paragraph-start comint-prompt-regexp) (run-hooks 'bashdb-mode-hook) )